home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Error Reporting 1.xpl < prev    next >
Text File  |  2004-03-01  |  2KB  |  60 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="System\Crash Control"
  5. "UIPATH 2"="Virtual Paranoia\Automatic Error Reporting"
  6. "NAME"="Windows Error Reporting"
  7. "VERSION"="1.12"
  8. "OSVERSION"="0000011"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Enable Windows error reporting"
  11. "TEXT 2"="Display a warning when a program crashes"
  12. "DESCRIPTION 1"="By default, Windows has enabled the feature "Error Reporting". In case that an application "crashes", Windows will ask the user if it's okay to send the information about this crash to Microsoft."
  13. "DESCRIPTION 2"="Basically, this is a good feature, since it allows Microsoft to analyze what was going wrong with the application and provide an bug-fix."
  14. "DESCRIPTION 3"="The problem is, that there is NO difference for this feature between the program code and the data of the document you have loaded with the crashed application. For example, if WordPad crashes and you were editing a letter with it as it crashes, it is possible that parts of this document are sent to Microsoft inside the crash report."
  15. "DESCRIPTION 4"="If you want to be 100% sure that no personal data from you is transmitted, we suggest that you deactivate this option."
  16. "DESCRIPTION 5"="To restore the Windows default behavior, activate both fields. It can also be controlled by using your Control Panel -> System -> Extended Tab -> Error Reporting."
  17. "DESCRIPTION 6"="Note: These are system wide settings, they apply to all users on this computer." 
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com/"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="thanks to http://www2.cajun.net/~theriots/blk/xp_reg_edits.htm"
  22.  
  23.  
  24.  
  25. sV1="HKLM\SOFTWARE\Microsoft\PCHealth\ErrorReporting\DoReport" 'DW
  26. sV2="HKLM\SOFTWARE\Microsoft\PCHealth\ErrorReporting\ShowUI" 'DW
  27.  
  28.  
  29. Sub Plugin_Initialize 
  30.  i=RegReadValue(sV1)
  31.  if i=1 then SetUIElement 1,true 
  32.  
  33.  i=RegReadValue(sV2)
  34.  if i=1 then SetUIElement 2,true 
  35.  
  36. End Sub
  37.  
  38. Sub Plugin_CheckData(ElementIndex)
  39. End Sub
  40.  
  41. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  b=GetUIElement(1)
  43.  if b=true then
  44.     Call RegWriteValue(sV1,"1",2)
  45.  else
  46.     Call RegWriteValue(sV1,"0",2)
  47.  end if
  48.  
  49.  b=GetUIElement(2)
  50.  if b=true then
  51.     Call RegWriteValue(sV2,"1",2)
  52.  else
  53.     Call RegWriteValue(sV2,"0",2)
  54.  end if
  55.  
  56. End Sub
  57.  
  58. Sub Plugin_Terminate 
  59. End Sub
  60.